perm filename EQUA.AX[226,JMC] blob sn#005428 filedate 1972-07-22 generic text, type T, neo UTF8
00100	COMMENT - These are the usual reflexivity, symmetry, and
00200	transitivity axioms for the equality of terms in the logic.
00300	Most likely, they are unnecessary since the replacement rule
00400	of inference is probably strong enough to do their work.
00500	Certainly, the other two can be proved from reflexivity.
00600	The definition of  is also given.;
00800	
00900	GIVEAX(REFLEX,(∀ X)(X=X));
01000	
01100	GIVEAX(SYMEQ,(∀ X)(∀ Y)(X=Y ⊃ Y=X));
01200	
01300	GIVEAX(TRANSEQ,(∀ X)(∀ Y)(∀ Z)(X=Y∧Y=Z ⊃ X=Z));
01400	
01500	GIVEAX(NOTEQ,(∀ X)(∀ Y)(X≠Y≡¬(X=Y)));
     

00100	END;